DIM Series: Yumi Fukawa/DIM Series: Yumi Fukawa.iso/pc/data/photo_l.dxr/00001_initPhoto and common script.ls

Text File | 1998-06-10 | 6.4 KB | 221 lines

global knumphotos, knummaxalbumphotos, kdefaultphotoorder, knumcategory, kcategoryphotonums, knummovies, klinkdata, kphotothumbnailhoriznum, kmaxphotothumbnailnum, kphotosprnum, kmovielinksprnum, kphotolinksprnum, kcategorythumbnailsprnumbgn, kphotothumbnailsprnumbgn, kthumbnailmarkersprnum, kalbumeditorthumbnailsprnumbgn, kalbumeditorinsertareasprnumbgn, kalbumeditordragviewsprnum, kalbumeditorinsertmarkersprnum, kalbumeditorallclearbtnsprnum, kalbumeditordeletebtnsprnum, kmoviethumbnailsprnumbgn, kcategorythumbnailstrsprnum, kphotothumbnailstrsprnum, kmoviethumbnailstrsprnum, kautoslidestrsprnum, kautomoviestrsprnum, kmoviesprnum, kalbumfullerrstr, ksavefilename, ksavefileheaderstr, knumbgm, galbumphotoorder, gcurphotoorder, gcurcategorynum, gcurphotonum, gsavedphotomodephotonum, gsavedalbummodephotonum, gcategorythumbnailonstage, gphotothumbnailonstage, gcurmovienum, gmoviethumbnailonstage, galbummode, gautoslide, gautoslidespeed, gautoslidewaitticks, gautoslidewaittickslist, gautomovie, gsndvol, gcurbgmnum, gsavedsndvol

on prepareMovie
  set gsavedsndvol to the soundLevel
  initconstants()
  initglobals()
end

on initconstants
  set knumphotos to 100
  set knummaxalbumphotos to 39
  readcategorydata()
  set kdefaultphotoorder to []
  repeat with acategorycount = 1 to knumcategory
    set aphotolist to getAt(kcategoryphotonums, acategorycount)
    set anumphoto to count(aphotolist)
    repeat with aphotocount = 1 to anumphoto
      add(kdefaultphotoorder, getAt(aphotolist, aphotocount))
    end repeat
  end repeat
  set knummovies to 20
  readlinkdata()
  set kphotothumbnailhoriznum to 5
  set kmaxphotothumbnailnum to 30
  set kphotosprnum to 10
  set kmovielinksprnum to 31
  set kphotolinksprnum to 31
  set kcategorythumbnailsprnumbgn to 104
  set kphotothumbnailsprnumbgn to 46
  set kthumbnailmarkersprnum to 113
  set kalbumeditorthumbnailsprnumbgn to 14
  set kalbumeditorinsertareasprnumbgn to 54
  set kalbumeditordragviewsprnum to 110
  set kalbumeditorinsertmarkersprnum to 108
  set kalbumeditorallclearbtnsprnum to 100
  set kalbumeditordeletebtnsprnum to 101
  set kmoviesprnum to 120
  set kmoviethumbnailsprnumbgn to 46
  set kcategorythumbnailstrsprnum to 43
  set kphotothumbnailstrsprnum to 44
  set kmoviethumbnailstrsprnum to 43
  set kautoslidestrsprnum to 42
  set kautomoviestrsprnum to 42
  set kalbumfullerrstr to "ﾃ陰ﾃ嘉｣ﾃ頴ﾃ嘉„ﾃ‡邃｢ﾃ ﾃ催ｮtﾃ‡ﾂｼﾃ‡ﾃ敕③"
  set ksavefilename to "arcn_fu.txt"
  set ksavefileheaderstr to "arsion CD-ROM fu"
  set knumbgm to 1
end

on initglobals
  set gcurcategorynum to 1
  set gcategorythumbnailonstage to 0
  set gcurphotonum to 1
  set gsavedphotomodephotonum to 1
  set gsavedalbummodephotonum to 1
  set gphotothumbnailonstage to 0
  set gcurphotoorder to kdefaultphotoorder
  set gcurmovienum to 1
  set gmoviethumbnailonstage to 0
  set galbumphotoorder to []
  set gsndvol to the soundLevel
  set gcurbgmnum to 1
  set gautoslidespeed to 3
  loadalbumdata()
  set galbummode to 0
  set gautoslide to 0
  set gautoslidewaitticks to the ticks
  set gautoslidewaittickslist to [900, 600, 360, 240, 120]
  set gautomovie to 0
end

on stopMovie
  savealbumdata()
  stopsnd(#bgm)
  set the soundLevel to gsavedsndvol
end

on readcategorydata
  set aphotonumdata to []
  set afile to new(script "TFile")
  msetfilepath(afile, the moviePath)
  msetfilename(afile, "photo_num.txt")
  if failfileerr(mopenfile(afile, #read)) then
    exit
  end if
  set anumphotoincategorylist to []
  repeat with anumphotoincategorycount = 1 to 5
    add(anumphotoincategorylist, mreadasvalue(afile))
  end repeat
  repeat while 1
    set adata to mreaddata(afile)
    if adata = EMPTY then
      exit repeat
      next repeat
    end if
    set adata to getstrtillreturn(adata)
    add(aphotonumdata, adata)
  end repeat
  mclosefile(afile)
  set knumcategory to 5
  set kcategoryphotonums to []
  set areadpos to 1
  set areadendpos to 0
  repeat with acategorycount = 1 to knumcategory
    set areadendpos to areadendpos + getAt(anumphotoincategorylist, acategorycount)
    set atmp to []
    repeat with adatacount = areadpos to areadendpos
      add(atmp, getAt(aphotonumdata, areadpos))
      set areadpos to areadpos + 1
    end repeat
    add(kcategoryphotonums, atmp)
  end repeat
end

on readlinkdata
  set klinkdata to []
  set afile to new(script "TFile")
  msetfilepath(afile, the moviePath)
  msetfilename(afile, "link_num.txt")
  if failfileerr(mopenfile(afile, #read)) then
    exit
  end if
  repeat while 1
    set adata to mreaddata(afile)
    if adata = EMPTY then
      exit repeat
      next repeat
    end if
    set adata to getstrtillreturn(adata)
    set atmp to []
    add(atmp, item 1 of adata)
    add(atmp, item 2 of adata)
    add(klinkdata, atmp)
  end repeat
  mclosefile(afile)
end

on changesndvol vvalue
  set the soundLevel to vvalue
  set gsndvol to vvalue
  if vvalue = 0 then
    setsndlevel(#bgm, 0)
  else
    setsndlevel(#bgm, 100)
  end if
end

on changecurbgmnum vvalue
  set amembername to "b" & formatnumber(gcurbgmnum, 2)
  set gcurbgmnum to vvalue
  stopsnd(#bgm)
  playbgm()
  unloadMember(member amembername)
end

on playbgm
  if gsndvol = 0 then
    set alevel to 0
  else
    set alevel to 100
  end if
  set amembername to "b" & formatnumber(gcurbgmnum, 2)
  playsndifavail(#bgm, member amembername of castLib "snd", alevel)
end

on playmenubgm
  if gsndvol = 0 then
    set alevel to 0
  else
    set alevel to 100
  end if
  set amembername to "menu"
  playsndifavail(#bgm, member amembername of castLib "snd", alevel)
  unloadMember(member ("b" & formatnumber(gcurbgmnum, 2)))
end

on gomoviefrommenu
  go("movie")
  unLoad()
  stopsnd(#bgm)
  unloadMember(member "menu" of castLib "snd")
  updatemovieview()
end

on getmovielinknum vphotonum
  set alinknum to 0
  repeat with alinkcount = 1 to count(klinkdata)
    set adata to getAt(klinkdata, alinkcount)
    if getAt(adata, 1) = vphotonum then
      set alinknum to integer(getAt(adata, 2))
      exit repeat
    end if
  end repeat
  return alinknum
end

on getphotolinknum vmovienum
  set alinknum to 0
  repeat with alinkcount = 1 to count(klinkdata)
    set adata to getAt(klinkdata, alinkcount)
    if getAt(adata, 2) = vmovienum then
      set alinkphotoname to getAt(adata, 1)
      set alinknum to getPos(kdefaultphotoorder, alinkphotoname)
      exit repeat
    end if
  end repeat
  return alinknum
end

on lrcurs
  setcurs(member "LRCurs", member "LRCursMask")
end

on gophotofrommenu
  go("photo")
  unLoad()
  updatephotoview()
  stopsnd(#bgm)
  unloadMember(member "menu" of castLib "snd")
end